home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed15.d64 / lesson 1-4b (.txt) next >
Commodore BASIC  |  2007-02-04  |  8KB  |  245 lines
  1. 10 GOTO100
  2. 50 REM <YES>
  3. 51 S=54272:FORE=STOS+28:POKEE,0:NEXT
  4. 52 POKE54296,15:POKE54277,42:POKE54278,250
  5. 53 POKE54276,23:POKE54273,23:POKE54272,191
  6. 54 FORT=1TO150:NEXT:POKE54276,32:FORT=1TO200:NEXT
  7. 55 POKE54296,0:RETURN
  8. 60 REM <NO>
  9. 61 S=54272:FORE=STOS+28:POKEE,0:NEXT
  10. 62 POKE54296,15:POKE54277,18:POKE54278,242
  11. 63 POKE54276,33:POKE54273,4:POKE54272,48
  12. 64 FORT=1TO250:NEXT:POKE54276,32:FORT=1TO300:NEXT
  13. 65 POKE54296,0:RETURN
  14. 70 REM <BLIP>
  15. 71 S=54272:FORE=STOS+28:POKEE,0:NEXT
  16. 72 POKE54296,5:POKE54277,42:POKE54278,250
  17. 73 POKE54276,23:POKE54273,23:POKE54272,191
  18. 74 FORT=1TO30:NEXT:POKE54276,32:FORT=1TO50:NEXT
  19. 75 POKE54296,0:RETURN
  20. 80 FORT=1TO500:NEXT:RETURN
  21. 81 FORT=1TO1000:NEXT:RETURN
  22. 82 FORT=1TO2000:NEXT:RETURN
  23. 83 FORT=1TO3000:NEXT:RETURN
  24. 84 FORT=1TO4000:NEXT:RETURN
  25. 85 FORT=1TO5000:NEXT:RETURN
  26. 90 GOSUB81:GOSUB70
  27. 91 PRINT"[154]      [208]RESS [211][208][193][195][197][160][194][193][210][160]TO CONTINUE
  28. 92 [161]R$:[139]R$[179][177][199](32)[167]92
  29. 93 [142]
  30. 95 [153]"  PEEKETTER LUCK WITH THE NEXT QUESTION.OPEN":[142]
  31. 100 [151]53280,0:[151]53281,0:[151]646,3:[151]53272,23:C[178]0:P[178]0:W[178]0:D[178]0:G[178]0
  32. 101 [153]"LOAD      ATNCLOSE(null)(null)(null)CHR$CLOSEVALSTR$(null)LENATN(null)RIGHT$(null)(null)ATN(null)CLOSE(null)(null)(null)CHR$(null)ATN(null)
  33. 102 PRINT"           [198][207][210][160][195]64 [195][207][205][208][213][212][197][210][211]
  34. 105 [153]"                                        WAIT";
  35. 110 [153]"                                        WAIT";
  36. 115 [153]"     (null)RACTICE (null)ROBLEMS IN ATNRITHMETIC    WAIT";
  37. 120 [153]"                                        WAIT";
  38. 125 [153]"           CHR$RADE 3     (null)ART 2           WAIT";
  39. 130 [153]"                                        WAIT";
  40. 135 [153]"               (null)ESSON 1                 WAIT";
  41. 140 [153]"                                        WAIT";
  42. 145 [153]"         RIGHT$NTRODUCTORY (null)ROBLEMS OPEN         WAIT";
  43. 150 [153]"                                        WAIT";
  44. 155 [153]"                                        WAIT"
  45. 160 [153]"                  WHC "
  46. 165 [141]90
  47. 170 [153]"LOAD       ATNND AWAY WE GO......."
  48. 175 [141]81:[141]50:[141]80
  49. 200 [153]"PRINT#LOAD               (null)UESTION 1 WAITOPEN":Z[178]0
  50. 205 [153]"  MID$AMIE SPENT 6 CENTS FOR A TOP.  RIGHT$F HE
  51. 210 PRINT"  HAD 14 CENTS AT FIRST, HOW MUCH         MONEY HAS HE LEFT?"
  52. 220 GOSUB81:GOSUB70
  53. 225 PRINT"             [145]"
  54. 230 INPUT A$
  55. 240 IFA$<>"8"THEN 270
  56. 250 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  57. 260 P=P+1:GOTO300
  58. 270 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  59. 275 IFZ=2THENG=G+1:GOTO285
  60. 280 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  61. 282 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  62. 283 GOTO225
  63. 285 PRINT"[145][145][158]  [212]HE ANSWER IS 8[158] CENTS.      ":GOSUB82
  64. 290 PRINT"  14 - 6 = 8                       "
  65. 295 GOSUB82:GOSUB90
  66. 300 PRINT"[152][147]               [209]UESTION 2 [146][159]":Z=0
  67. 305 PRINT"  [212]WELVE BOYS AND 6 GIRLS ARE NOW
  68. 310 [153]"  PLAYING IN THE PARK.  LEFT$OW MANY
  69. 315 PRINT"  CHILDREN ARE IN THE PARK?"
  70. 320 GOSUB81:GOSUB70
  71. 325 PRINT"             [145]"
  72. 330 INPUT A$
  73. 340 IFA$<>"18"THEN370
  74. 350 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  75. 360 P=P+1:GOTO400
  76. 370 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  77. 375 IFZ=2THENG=G+1:GOTO385
  78. 380 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  79. 382 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  80. 383 GOTO325
  81. 385 PRINT"[145][145][158]  [212]HE ANSWER IS 18[158]              ":GOSUB82
  82. 390 PRINT"  12 + 6 = 18                     "
  83. 395 GOSUB82:GOSUB90
  84. 400 PRINT"[152][147]               [209]UESTION 3 [146][159]":Z=0
  85. 405 PRINT"  [196]ICK SPENT 70 CENTS FOR A SANDWICH
  86. 410 [153]"  AND 40 CENTS FOR A CARTON OF MILK.
  87. 415 PRINT"  [200]OW MANY CENTS DID HIS LUNCH COST?"
  88. 420 GOSUB81:GOSUB70
  89. 425 PRINT"             [145]"
  90. 430 INPUT A$
  91. 440 IFA$<>"110"THEN 470
  92. 450 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  93. 460 P=P+1:GOTO500
  94. 470 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  95. 475 IFZ=2THENG=G+1:GOTO485
  96. 480 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  97. 482 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  98. 483 GOTO425
  99. 485 PRINT"[145][145][158]  [212]HE ANSWER IS 110[158] CENTS.      ":GOSUB82
  100. 490 PRINT"  70 + 40 = 110                    "
  101. 495 GOSUB82:GOSUB90
  102. 500 PRINT"[152][147]               [209]UESTION 4 [146][159]":Z=0
  103. 505 PRINT"  [208]OLLY ORDERED SIX PACKAGES OF FLOWER
  104. 510 [153]"  SEEDS AT 8 CENTS A PACKAGE.
  105. 515 PRINT"  [200]OW MUCH DID THE SEEDS COST HER?"
  106. 520 GOSUB81:GOSUB70
  107. 525 PRINT"             [145]"
  108. 530 INPUT A$
  109. 540 IFA$<>"48"THEN 570
  110. 550 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  111. 560 P=P+1:GOTO600
  112. 570 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  113. 575 IFZ=2THENG=G+1:GOTO585
  114. 580 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  115. 582 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  116. 583 GOTO525
  117. 585 PRINT"[145][145][158]  [212]HE ANSWER IS 48[158] CENTS.      ":GOSUB82
  118. 590 PRINT"  6 X 8 = 48                       "
  119. 595 GOSUB82:GOSUB90
  120. 600 PRINT"[152][147]               [209]UESTION 5 [146][159]":Z=0
  121. 605 PRINT"  [206]ANCY BOUGHT TEN 48 CENT STAMPS.
  122. 610 [153]"  LEFT$OW MANY CENTS DID SHE PAY FOR          POSTAGE?"
  123. 620 [141]81:[141]70
  124. 625 [153]"             ON"
  125. 630 [133] A$
  126. 640 [139]A$[179][177]"480"[167] 670
  127. 650 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  128. 660 P[178]P[170]1:[137]700
  129. 670 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  130. 675 [139]Z[178]2[167]G[178]G[170]1:[137]685
  131. 680 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  132. 682 [153]"OPENONON                                        ONONONONONONON"
  133. 683 [137]625
  134. 685 [153]"ONONSYS  (null)HE ANSWER IS 480SYS CENTS.      ":[141]82
  135. 690 [153]"  10 X 48 = 480                    "
  136. 695 [141]82:[141]90
  137. 700 [153]"PRINT#LOAD               (null)UESTION 6 WAITOPEN":Z[178]0
  138. 705 [153]"  RIGHT$F 48 CHILDREN FILL A CLASSROOM THAT
  139. 710 PRINT"  HAS SIX ROWS OF SEATS, HOW MANY
  140. 715 [153]"  CHILDREN ARE IN EACH ROW?"
  141. 720 [141]81:[141]70
  142. 725 [153]"             ON"
  143. 730 [133] A$
  144. 740 [139]A$[179][177]"8"[167] 770
  145. 750 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  146. 760 P[178]P[170]1:[137]800
  147. 770 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  148. 775 [139]Z[178]2[167]G[178]G[170]1:[137]785
  149. 780 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  150. 782 [153]"OPENONON                                        ONONONONONONON"
  151. 783 [137]725
  152. 785 [153]"ONONSYS  (null)HE ANSWER IS 8SYS               ":[141]82
  153. 790 [153]"  48 / 6 = 8                       "
  154. 795 [141]82:[141]90
  155. 800 [153]"PRINT#LOAD               (null)UESTION 7 WAITOPEN":Z[178]0
  156. 805 [153]"  (null)ELL (null)ARY HOW MUCH SHE MUST PAY FOR
  157. 810 PRINT"  SEVEN 3 CENT PENCILS?"
  158. 820 GOSUB81:GOSUB70
  159. 825 PRINT"             [145]"
  160. 830 INPUT A$
  161. 840 IFA$<>"21"THEN 870
  162. 850 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  163. 860 P=P+1:GOTO900
  164. 870 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  165. 875 IFZ=2THENG=G+1:GOTO885
  166. 880 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  167. 882 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  168. 883 GOTO825
  169. 885 PRINT"[145][145][158]  [212]HE ANSWER IS 21[158] CENTS.      ":GOSUB82
  170. 890 PRINT"  7 X 3 = 21                       "
  171. 895 GOSUB82:GOSUB90
  172. 900 PRINT"[152][147]               [209]UESTION 8 [146][159]":Z=0
  173. 905 PRINT"  [205]RS. [210]EID'S CLASS HAS 48 PUPILS AND
  174. 910 [153]"  (null)R. (null)ITT'S CLASS HAS ONLY 36 PUPILS.
  175. 915 PRINT"  [200]OW MANY MORE PUPILS ARE IN [205]RS.
  176. 917 [153]"  (null)EID'S CLASS?"
  177. 920 [141]81:[141]70
  178. 925 [153]"             ON"
  179. 930 [133] A$
  180. 940 [139]A$[179][177]"12"[167] 970
  181. 950 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  182. 960 P[178]P[170]1:[137]1000
  183. 970 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  184. 975 [139]Z[178]2[167]G[178]G[170]1:[137]985
  185. 980 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  186. 982 [153]"OPENONON                                        ONONONONONONON"
  187. 983 [137]925
  188. 985 [153]"ONONSYS  (null)HE ANSWER IS 12SYS                ":[141]82
  189. 990 [153]"  48 - 36 = 12                     "
  190. 995 [141]82:[141]90
  191. 1000 [153]"PRINT#LOAD               (null)UESTION 9 WAITOPEN":Z[178]0
  192. 1005 [153]"  (null)ITH 48 CENTS, HOW MANY 8 CENT
  193. 1010 PRINT"  BUS TICKETS CAN [195]ATHERINE BUY?"
  194. 1020 GOSUB81:GOSUB70
  195. 1025 PRINT"             [145]"
  196. 1030 INPUT A$
  197. 1040 IFA$<>"6"THEN 1070
  198. 1050 PRINT"[158]                [195][207][210][210][197][195][212]!!               [146][159]":GOSUB50:GOSUB82
  199. 1060 P=P+1:GOTO1100
  200. 1070 PRINT"[150]  [207][213][195][200]! .......... [212]HAT [200][213][210][212]!":GOSUB60:GOSUB82:Z=Z+1
  201. 1075 IFZ=2THENG=G+1:GOTO1085
  202. 1080 PRINT"[145]  [212]RY AGAIN                             ":GOSUB70:GOSUB81:W=W+1
  203. 1082 PRINT"[159][145][145]                                        [145][145][145][145][145][145][145]"
  204. 1083 GOTO1025
  205. 1085 PRINT"[145][145][158]  [212]HE ANSWER IS 6[158]             ":GOSUB82
  206. 1090 PRINT"  48 / 8 = 6                       "
  207. 1095 GOSUB82:GOSUB90
  208. 1100 PRINT"[152][147]               [209]UESTION 10 [146][159]":Z=0
  209. 1105 PRINT"  [193]T 24 CENTS A LITRE, HOW MUCH WILL
  210. 1110 [153]"  CHR$EORGE PAY FOR THREE LITRES OF LIME     JUICE?"
  211. 1120 [141]81:[141]70
  212. 1125 [153]"             ON"
  213. 1130 [133] A$
  214. 1140 [139]A$[179][177]"72"[167] 1170
  215. 1150 [153]"SYS                LEN(null)(null)(null)VALLEN(null)!!               WAITOPEN":[141]50:[141]82
  216. 1160 [137]1200
  217. 1170 [153]"DEF  (null)(null)LENLEFT$! .......... (null)HAT LEFT$(null)(null)(null)!":[141]60:[141]82:Z[178]Z[170]1
  218. 1175 [139]Z[178]2[167]G[178]G[170]1:[137]1185
  219. 1180 [153]"ON  (null)RY AGAIN                             ":[141]70:[141]81:W[178]W[170]1
  220. 1182 [153]"OPENONON                                        ONONONONONONON"
  221. 1183 [137]1125
  222. 1185 [153]"ONONSYS  (null)HE ANSWER IS 72SYS CENTS.      ":[141]82
  223. 1190 [153]"  24 X 3 = 72                      "
  224. 1195 [141]82:[141]90
  225. 1200 [153]"LOAD           (null)EPORT LENARD WAIT"
  226. 1205 D[178]W[171]G:C[178]10[171]W
  227. 1210 [153]"PRINT  1. (null)UESTIONS ANSWERED CORRECTLY            ON FIRST TRY:
  228. 1215 PRINT"                 ";C
  229. 1220 PRINT"[129]  2. [209]UESTIONS ANSWERED CORRECTLY            ON SECOND TRY:
  230. 1225 [153]"                 ";D
  231. 1230 [153]"DEF  3. (null)UESTIONS MISSED ON SECOND TRY:
  232. 1235 PRINT"                 ";G;""
  233. 1245 GOSUB90
  234. 1250 PRINT"[158][147]  [217]OU HAVE A CHOICE:
  235. 1255 [153]"  (null)RESS  (null) WAIT TO REPEAT THIS LESSON
  236. 1260 PRINT"  [208]RESS  [205] [146] TO RETURN TO THE MENU[159]"
  237. 1265 GETR$:IFR$<>"R"ANDR$<>"M"THEN1265
  238. 1270 IFR$="R"THENRESTORE:GOTO100
  239. 1275 RESTORE
  240. 1280 PRINT"[147] [210]ETURNING TO THE DISK MENU
  241. 1285 [147]"MENU",8
  242. 1290 [138]
  243. 1295 [128]
  244. 1300 [143] BILL CUMBERLAND 90:12:25
  245.